home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
comm
/
irc
/
BlackIRC.lha
/
BlackIRC
/
Rexx
/
Grab.birx
< prev
next >
Wrap
Text File
|
1999-01-30
|
926b
|
37 lines
/* Screengrabber-script originally by Phil Price
Installation:
1. Download CyberGrab from Aminet and copy the file "CyberGrab"
to C:
2. Add an entry to the CTCP Server:
CTCP Command: GRAB
Action: ARexx
Parameter: Rexx/Grab.birx
3. Enjoy it :)
*/
options results
GETUNCTCPCOMM
comm = result
GETCTCPNICK
nick = result
ADDLIB("rexxreqtools.library",0,-30,0)
'ECHO <<'comm'>> Received screenshot request ..'
call rtezrequest(''nick': Requested screenshot, shall I allow this ?','Yes|No','Snapshot Req')
if rtresult='0' then do;SENDCTCPReply nick comm 'Snapshot request rejected';EXIT;end
if rtresult='1' then do
SENDCTCPReply nick comm 'Please wait dealing with your request'
file = 'T:'nick'-grab.iff'
address command 'c:cybergrab 'file' delay 5';
SENDCTCPReply nick comm 'Sending snapShot'
DCCSEND nick file
Exit
end